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LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
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LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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66-SEP-1984 00:09:55 VAX/VMS Macro v04-00 Page 
aoe PR Pe tate 
TITLE LIBSICHAR ; Return first char of qtring. a value 
IDENT /1-006/ 3; File: LIBICHAR.MAR Edit:RKR1 


PARA RAARAARAAALAAALALALALALALLLELELE AAA AAAS A SESE SALE SESE SERRE RRR E SERRE ARES OY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
*® s 
:® ® 
'® *® 
:® ® 
‘* ® 
:® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
j# ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY = 
s® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. e 
* ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. “ 
*® ® 
:® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ‘ 
*® ® 
*® ® 
:* * 


LARRARARRAAASALAAAAAAAAALALAALAAREEELALARERAAA AAA R RRR RRA RARER ARRAS AR ARAL AS SD 


; FACILITY: General Utility Library 
: "ABSTRACT: 
Return first character of a string as INTEGER*4 ASCII value. 
; VERSION: 1-001 
; HISTORY: 


; ; AUTHOR: ; . 
Thomas N. Hastings, 6-Aug-77: Version 0 


; MODIFIED BY: 
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SDOSOOSSOSOOOSSOSSSSOSOSOSOSOSOSOSOSOOSOSOOOSOOSOSOSOOOSOOSOSOSOSoOO 
GOQOCOCOCOOSOSOSOSOSGOSCoooooooooooooooooooooooooooooo 
NAME WN OS OO NAME WW $$ OS OO NAUES WN 3 O DOONAN OOONOULS Wn 


BERLE SS SPWWWIIIIIinononononononononunn 2 3 2 


oooo 
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3; Detailed Current Bait History "OrSEP -1 1386 99: 88: :02 YTBRTL. SRESLIBICHAR.MAR: 1 ” (2) | 


-SBTTL HISTORY 3; Detatled Current Edit History 


LIBSICHAR ; eet 
1 HIST 


Edit History for Version 0 


CBee NY 


L 
$s 
LY) 
D 
L 
L 
$s 
S) 


1-001 = Update copyright ~y > and version number. The Last edit 
number on version JBS 16-NOV- 
1-002 = Add "’_"’ to PSECT wdirective. JBS 21-DEC-7 
1-003 = Add support (er? length dynamic strings. RW 16-AUG-79 
1-004 = Enhance to ayl ow recognition of additis nal oan of 
strin ease ptors by ysing LIBSANALYZE SDESC_R3 to extract 
Rin 20-A oe <cexre™ ° yte of data from descritpor. 


1-005 - Special-case code to process string dg descriptors that 
read? ate fix string descriptors. RKR 7-0CT-1981. 
1-006 - Redire sb's from L BSANAL YE SDESC_R3 ty 
LIBSANALY E spesc -R2. Drop R3 from entry mask. 
RKR 18-NOV-7198 
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Return first char of string as value 16-SEP-1984 99: 8 
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-SBTTL DECLARATIONS 


INCLUDE FILES: NONE 


EXTERNAL SYMBOLS: 


»DSABL 


3 no default externals 


GBL 
«EXTRN LIBSANALYZE_SDESC_R2 3 extract length and address 


MACROS: 
SDSCDEF 


3; for fields within a descriptor 


PSECT DECLARATIONS: 


»PSECT 


-LIBSCODE PIC,SHR,LONG,EXE ,NOWRT 


EQUATED SYMBOLS: NONE 


: OWN STORAGE: NONE 


ea 


Page (4 


ny 


G 14 


IBSICHAR ; Return first char of string as value 16-SEP-1984 00:09:55 VAX/VMS Macro V04-00 Page 4 Ll 
CIBSICHAR - Return first char of string aes Pi 9:08:03 YETBRTL. SREILIBICHAR.MAR: 1 . (4) Ta 
; H -SBTTL LIBSICHAR = Return first char of string as INTEGER*4 value 
101 ;++ 
} § 3 FUNCTIONAL DESCRIPTION: 
104 ; Return first character of string as INTEGER*4 8-bit ASCII value. 
8 ! > 3 uy the string is a null string, jie. the length is 0, return a 
5 ull. 
0 1 8 3 
88 ! 8 3; CALLING SEQUENCE: 
09 119 : First_char_val.wlu.v = LIBSICHAR (string.rt.dx) 
00000004 Bo 116 string = 4 ; Adr. of string descriptor 
$8 114 ; 
00 115 ; INPUT PARAMETERS: 
00 118 3 NONE 
000- 117; 
00 118 ; IMPLICIT INPUTS: 
0000 119; NONE 
8000 120 ; 
4 121 ; OUTPUT PARAMETERS: 
000 1 § $ NONE 
4 1 : 
000 124 ; IMPLICIT OUTPUTS: 
0000 125; NONE 
0000 =«1 § ; 
0000 127 ; ROUTINE VALUE 
i464 | 3 : FIRST_CHAR_VAL.wlu.v value of Ist char as a INTEGER*4 
4464 130 ; SIDE EFFECTS: 
8 » as NONE 
00 1 § 3 
$000 134° 
000: 135 
00 136 
0004 bp 137 -ENTRY LIBSICHAR, “M<R2> 3 entry mask 
50 04 AC 00 00 138 MOVL STRINGC(AP), RO ; address of string descriptor 
02 03 a0 91 06 139 CMPB = DSC$B_CLASS(RO), #DSCSK_CLASS_D ; read Like fixed ? 
OC 1A A 140 BGTRU 1$ 3 no 
50 048 7D OC 141 MOVQ @STRING(AP), RO ; length=->RO, address->R1 
5 fH 1 136 TSTW 8 : 
1 8 1 14 LEQ 10$ :; if negative 
50 61 QA 1 144 MOVZBL (R1), RO ; value of ist character 
04 iv 192 ET 
eoocoogs. an is 129 1$: JSB G“*LIBSANALYZE_SDESC_R2 ; extract: length->R1, addr->R2 
08 50 =«€¢€ i 138 BLBC RO, 10$ 3; if not success, quit 
1 F 14 TSTW R1 : length 0 ? 
04 B 150 BLEQU§ 10$ ; if so, return a null 
50 62 9A 13) MOVZBL (R2), RO 3; value of Ist character 
04 ! § ET 3 return from LIBSICHAR 
50 4 9 134 10$: CLRL RO 3 return a null 
4 B 155 RET 


4 
4-658" EaBETWGRattaSASDAToAPSRTEGGE 8 HENNE, TECREPCHBES (0:08:63 WOMANS. ESCUDEGBE wane P29 ch 


8056 138 - END ; End of module LIBSICHAR 


I 14 
LIBSICHAR ; Return first char of string as value at et 9 90:09:33 wes M 
Symbol table 6-SEP=1984 11:08:02 CLIBRTL.S 


DSCSK “CLASS. = 90000002 


acro V04-00 Page 6 tl 
RCILIBICHAR.MAR;1 (4) Vv 


D $ 
LIBRA IEE-Sesc.n2 00089 
STRING = 809 ait 

$eoececee eoceccnn+ 

H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 8.3 0 ¢( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 <¢ -») O17 ¢ #1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_LIBSCODE 0000002c («( 44.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

$eemweeonwenceccoence woont 
H Performance indicators H 

Phase Page faults CPU Time Elapsed Time 
Initialization g 8:00: 8.98 §:00:8 01 
Saeees 13 BReaRee ss 8:88:88 
Srebel table Were 6 00:00; 0:16 §:00:00.41 
ass 41 0:00:00.3 0: Bas sae 
Symbol table output ¢ 00:00:00.01 0:00:00.01 
Psect synopsis output BS 38: 88 288-2 
Cross-reference output 3 : 3: -00 0:00:0 90 
Assembler run totals 32 00:00:01.91 00:00:11.34 


The working set Limit was 900 pages. 

7877 bytes (16 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 134 non-local and 2 local symbols. 
157 source Lines were read in Pass 1, produc ing 13 object records in Pass 2. 

8 pages of virtual memory were used to define / macros. 


Gooceeeeeoooeecssosesooecco$ 


! Macro Library statistics H 


eww ncaa merawaon na sawanacasn as 


Macro Library name Macros defined 
~$255$DUA28: (SYSLIBJSTARLET .MLB; 2 pes, Sie ie 
190 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBICHAR/OBJ=0BJ$:LIBICHAR MSRC$:LIBICHAR/UPDATE=(ENHS$:LIBICHAR) 
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